SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant"];
<< SL2Invariant.m
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Invariant\\k=2"];
HL[ℰ_] := Style[ℰ, Background -> If[TrueQ@ℰ,,]];

$k=2; 
ℏ=γ=1;
$QZipFail=True;
tab310=Table[
{n,k}=List@@K;
fname="Data/"<>ToString[n]<>"_"<>ToString[k]<>".m";
Echo@(K->Timing[z=𝔼4@Z@K]);
Echo@HL[z==Get[fname][[2,2]]],
{K,AllKnots[{3,10}]}
]